home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
User's Choice Windows CD
/
User's Choice Windows CD (CMS Software)(1993).iso
/
utility2
/
wine02bx.zip
/
LISP
/
DIRED
/
DIRED-CW.ELC
< prev
next >
Wrap
Text File
|
1993-03-28
|
1KB
|
19 lines
;;; compiled by jwz@thalidomide on Tue Aug 18 17:08:23 1992
;;; from file /u/jwz/emacs19/lisp/dired/dired-cwd.el
;;; emacs version 19.2.2 Lucid.
;;; bytecomp version 2.08; 2-aug-92.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.
(if (and (boundp 'emacs-version)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19")))
(error "This file was compiled for Emacs19."))
(defconst dired-cwd-version (substring "!Revision: 1.2 !" 11 -2) "\
!Id: dired-cwd.el,v 1.2 1991/10/08 15:31:28 sk RelBeta !")
(fset 'dired-cwd-make-magic #[(function) "└ !½ä┬├!ê─┼╞ !P!╟ ╩╦╠═╬╧╨ D╤FEE╥ !¼å KMê M*ç" [commandp function error "Cannot make interactive functions work for tree dired" intern "dired-cwd-wrap-real-" symbol-name nil new-function save-name lambda (&rest dired-cwd-args) let ((default-directory (if (fboundp 'default-directory) (default-directory) default-directory))) apply 'funcall quote dired-cwd-args fboundp] 8 "\
Modify COMMAND so that it's working directory is the current dired directory.
This works by binding `default-directory' to `(default-directory)'s value.
See also function `default-directory'." "aMake work with tree dired (function): "])